home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G31F / G31_HIRA.Dxr / 00044.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  3.3 KB  |  158 lines
  1. global g_no, jumplistkey, rflg, hflg
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   set the cursor of sprite 11 to mycursor
  6.   set the cursor of sprite 12 to mycursor
  7.   set the cursor of sprite 14 to mycursor
  8.   set the cursor of sprite 15 to mycursor
  9.   set the cursor of sprite 16 to mycursor
  10.   set the cursor of sprite 17 to mycursor
  11.   set the cursor of sprite 18 to mycursor
  12.   set the cursor of sprite 19 to mycursor
  13.   set jumplistkey to ["G1", "G2", "G3", "G4", "G5", "G6", "G7", "G8", "G9", "G10", "G11", "G12", "G13", "G14", "G15", "G16", "G17", "G18", "G19", "G20", "G21", "G22", "G23", "G24", "G25", "G26", "G27", "G28", "G29"]
  14.   set rflg to 0
  15.   set hflg to 0
  16.   set volset to the soundLevel
  17.   if the soundEnabled = 0 then
  18.     set the soundEnabled to 1
  19.   end if
  20. end
  21.  
  22. on donext
  23.   if (g_no + 1) = 30 then
  24.     set g_no to 0
  25.   end if
  26.   set g_no to g_no + 1
  27.   visiset()
  28.   go(getAt(jumplistkey, g_no))
  29. end
  30.  
  31. on doback
  32.   if (g_no - 1) = 0 then
  33.     set g_no to 30
  34.   end if
  35.   set g_no to g_no - 1
  36.   visiset()
  37.   go(getAt(jumplistkey, g_no))
  38. end
  39.  
  40. on doexit
  41.   sound stop 1
  42.   go("M4", "@::JMACMENU")
  43. end
  44.  
  45. on crtopen
  46.   puppetSprite(6, 1)
  47.   repeat while the stillDown
  48.     set the memberNum of sprite 6 to 6
  49.     updateStage()
  50.   end repeat
  51.   set the memberNum of sprite 6 to 5
  52.   updateStage()
  53.   puppetSprite(6, 0)
  54. end
  55.  
  56. on crtclose
  57.   puppetSprite(7, 1)
  58.   repeat while the stillDown
  59.     set the memberNum of sprite 7 to 8
  60.     updateStage()
  61.   end repeat
  62.   set the memberNum of sprite 7 to 7
  63.   updateStage()
  64.   puppetSprite(7, 0)
  65. end
  66.  
  67. on crtback
  68.   puppetSprite(21, 1)
  69.   repeat while the stillDown
  70.     set the memberNum of sprite 21 to 16
  71.     updateStage()
  72.   end repeat
  73.   set the memberNum of sprite 21 to 15
  74.   updateStage()
  75.   puppetSprite(21, 0)
  76. end
  77.  
  78. on crtnext
  79.   puppetSprite(20, 1)
  80.   repeat while the stillDown
  81.     set the memberNum of sprite 20 to 14
  82.     updateStage()
  83.   end repeat
  84.   set the memberNum of sprite 20 to 13
  85.   updateStage()
  86.   puppetSprite(20, 0)
  87. end
  88.  
  89. on crtclose2
  90.   puppetSprite(22, 1)
  91.   repeat while the stillDown
  92.     set the memberNum of sprite 22 to 18
  93.     updateStage()
  94.   end repeat
  95.   set the memberNum of sprite 22 to 17
  96.   updateStage()
  97.   puppetSprite(22, 0)
  98.   puppetSprite(23, 0)
  99.   set the visible of sprite 3 to 1
  100.   set the visible of sprite 4 to 1
  101. end
  102.  
  103. on crtzoomin
  104.   puppetSprite(24, 1)
  105.   repeat while the stillDown
  106.     set the memberNum of sprite 24 to 20
  107.     updateStage()
  108.   end repeat
  109.   set the memberNum of sprite 24 to 19
  110.   updateStage()
  111.   puppetSprite(24, 0)
  112. end
  113.  
  114. on crtzoomout
  115.   puppetSprite(24, 1)
  116.   repeat while the stillDown
  117.     set the memberNum of sprite 24 to 30
  118.     updateStage()
  119.   end repeat
  120.   set the memberNum of sprite 24 to 29
  121.   updateStage()
  122.   puppetSprite(24, 0)
  123.   puppetSprite(6, 0)
  124. end
  125.  
  126. on crtreiya1
  127.   set rflg to 1
  128.   puppetSprite(23, 1)
  129.   repeat while the stillDown
  130.     set the memberNum of sprite 23 to 32
  131.     updateStage()
  132.   end repeat
  133.   set the memberNum of sprite 23 to 33
  134.   updateStage()
  135.   set the visible of sprite 4 to 1
  136. end
  137.  
  138. on crtreiya2
  139.   set rflg to 0
  140.   puppetSprite(23, 1)
  141.   repeat while the stillDown
  142.     set the memberNum of sprite 23 to 34
  143.     updateStage()
  144.   end repeat
  145.   set the memberNum of sprite 23 to 31
  146.   updateStage()
  147.   set the visible of sprite 3 to 1
  148.   set the visible of sprite 4 to 0
  149. end
  150.  
  151. on visiset
  152.   if (g_no = 1) or (g_no = 2) then
  153.     set the visible of sprite 3 to 1
  154.     set the visible of sprite 4 to 0
  155.     puppetSprite(23, 0)
  156.   end if
  157. end
  158.